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ZTITLE ‘X.25 Server Module Pergiog” 
poeyee NCPSTAMSE (IDENT = ‘V04-000",LIST(NOOBJECT)) = 


Lee REE RA AEE AAAAAAE AAA AEAAEE EE EEEREEEEEAAEEREEREREREREREEREE 


it COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'w ALL RIGHTS RESERVED. 


* 
* 
* 
* 
! * 
'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
: ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
't INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. ® 
' * 
't THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

'® CORPORATION. * 
* 

* 

© 

* 

* 

* 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


it 
Lee RR ARR REAARAAAAAAEA AEE AAE RAAT AAA AERA ERAKEEEEE 
' 


'e4 

FACILITY: Network Control Program (NCP) 

ABSTRACT: 

; States and data for the parsing of NCP X.25 server module parameters 
i ENVIRONMENT: VAX/VMS Operating System 

: AUTHOR: Tim Halvorsen, July 1981 

MODIFIED BY: 

V03-009 PRD0069 _ Paul R. DeStefano ==» 24-Feb-1984 
Accept ‘KNOWN’ as ‘KNOWN DESTINATIONS". 

i 

i 

i 

i 

i 

i 

i 

i 

1 


Prompt for destination name when "DESTINATION" 
parameter is entered without specifying a name. 


v03-008 PRD0060 Paul R. DeStefano 05-Feb-1984 
Allow OBJECT parameter to accept both name and number. 

v03-007 RPGO007 Bob Grosso 11-Nov-1982 
Make IPR 132 corrections. 


Remove node and file name prompt. 


v03-006 RPGOO006 | Bob Grosso 15-Sep-1982 
Flag qualifier for ALL check. 


71986 92:48:30 UNCP. SRCINCESTAMSE-B3¢; 


a ee ae ee Te a ee EE ae ete eS 


NCPSTAMSE 
04-000 


specified on the command Line 


13 
x.25 Server Module Parsin 16- Sep 4 01:0 AX-11 Bliss V4.0-74 
st : ° ere e= 18s 95:28:88 | EARS SRB NE Es Pamte 3504 
9 1! v03-005 RPGO00S Bob Gro 08-Sep-1982 
#4 : Change use of HXPS to HEX. for CALL VALUE and CALL MASK. 
061 1! V03-004 TMHO004 Tim Halvorse 19-Aug-1982 
bo¢ 1! Remove 4a from the List of "X25-SERVER wide paramter 
065 1! th. Brine List, since it's a destination parameter. 
064 1! FALL MASK and CALL VALUE, so that they are sent 
Boee : Fi “ul n the NICE message. 
0067 1! v03-003 RPGO003 Bob Gros 03-Aug-1982 
0068 1! Prompt for ALL for CLEAR XS DEST dest. 
09 , : Add State and File. 
071 1: v3-002 RP 0092 Bob Grosso 26-Jul-1982 
pOrg : dd X29-Server, using common parsing. 
0074 1: v001 TMHO001 Tim Halvorsen 05-Apr-1982 
0075 : } Fix prompting for DESTINATION ‘perenetere if none are 
1: 


NGPSTANSE 1.25 Server Module Parsing HecBeoctge 4:05:30 yauctd ab ieg=32 4.02749 rage 3 


ZSBTTL ‘Definitions’ 


! INCLUDE FILES: 


WhO 
~~ 
UW OOR 


3 1 

3 1 

; 1 

3 1 

: } 

3 5 : 1 LIBRARY ‘LIBS: ae ey 

; 1 LIBRARY ‘LIBS:NCPLIBRY 

; 87 086 1 LIBRARY 'SYSSLIBRARY: RTPAMAC® ; 

; B&B 087 1 

; 088 1! 

; Ww 4 9 1 ! EXTERNAL REFERENCES: 

; Ww 90 1! 

cn oe 0091 1 

:. ¥ 003¢ 1 ACT_DFN ! Action routine externals 

; 494 0093 1 

.—; oe 0094 1 EXTERNAL 

; © 0095 1 NCPS$GL_QUALPRS; ! Record that a qualifier was present so that 
; 97 0096 1 ! the check for ALL will work correctly 
; 0097 1 

; 99 0098 1! 

: 100 0099 1 

: 6101 0100 1 

5 10¢ 0101 1 

; 10 B16 1 

3 104 0105 1 QUALPRESENT = 1; ! flag that a qualifier was present on the command Line 


LITERALS 
LITERAL 


<z 
bg 
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v04-000 Set Parameter blocks 4-Sep-1984 12:48: NCP. SRCINCPSTAMSE .B32;1 ) 


: 196 1 1 ZSBTTL ‘Set Parameter blocks’ 3 
; 10 105 1 3 
: 108 1 6 1! ; 
: 109 1 , ? Set X25=SERVER Parameter Blocks 3 
: 110 108 1 ; 
: 111 109 1 ; 
; 13 P0110 1 BUILD_PCL ; 
: 11 P0111 1 ; 
: 114 P 11g 1 (MSE, ! Module X25-SERVER ; 
> 115 P0113 1 ; 
: 116 P0114 1 DST, TKN, PCXS_DST, , ; 
> 11 P O19 1 ; 
: 118 P 116 1 CTM, NUMW, PCXS_CTM, , ; 
> 119 P0117 1 MCI, : PCXS-MCI. . : 
: 120 P0118 1 NOD, NADR, PCXS"NOD, ; ; 
> 121 P0119 1 USR, TKN, PCXS-USR, , ; 
| é P0120 1 W. TKN, PCXS-SPW, , ; 
> 4 P Olo1 1 ACC. TKN, PCXS"ACC, . ; 
: 12% P 01 : 1 J; OBJ PCXS-OBJ, . ; 
> 125 P0123 1 PRI, NUMB, PCXS-PRI, , ; 
: 126 P0124 1 MK; HEX, PCXS-CMK, , : 
: 127 P0125 1 CVL, HEX, PCXS-CVL, . ; 
: 128 P0126 1 GRP, TKN, PCXS-GRP, , ; 
; 1¢9 P Olo7 1 NUM, TKN, PCXS"NUM, ; 
: 130 P0128 1 SAD. SAD. PCXS-SAD, . ; 
: 131 P0129 1 

; 13¢ P0130 1 STA, NUMB, PCXS_STA, , 

> 13 P0131 1 FIL. TKN, PCXS-FIL, . 

: 134 P 01 é 1 

: 135 P0133 1 . END... 

; 136 P0134 1 

: 137 0135 1 ) 

: 138 0136 1 

: 139 P 0137 1 BUILD_PBK 

: 140 P0138 1 

> 141 P0139 1 (MSE, ! Module X25-SERVER 

: 148 P0140 1 

: 146 P0141 1 CTM, NUMW, , . 

+ 164 P Oi4¢ 1 DST. TKN, . . 

> 145 P0143 1 KDS, LITB, NMASC_ENT_KNO, MSE_DST, ! KNOWN DESTINATIONS 

+ 146 P0144 1 MCI. NUMW. , , 

: 147 P0145 1 NOD, NADR. . . 

> 148 P 0146 1 USR, TKN, , , 

eo 149 P 14 1 PSW, TKN, oe ao 

> 150 P0148 1 ACC, TKN, ; ; 

> 151 P0149 1 OBJ; OBJ. ; ° 

: 138 P 0130 1 PRI. NUMB, , , 

: 15 P0151 1 CMK; HEX, , . 

> 154 P O15¢ 1 CVL. HEX, . . 

: 155 P0153 1 GRP. TKN. . . 

m7 156 P 154 1 e TKN, a) 

: 157 P0155 1 SAD. SAD. . 

; 138 P 136 1 

+ 15 P0157 1 STAON, LITB, NMASC_STATE_ON, MSE_STA 

> 160 P 138 1 STAOFF, LITB, NMASC_STATE_OFF, MSE_STA, 

> 161 P0159 1 w eee: 

: 162 P0160 1 
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BUILD_SDB 

(CSE, NMASC_ENT_MOD, MSE_ENT, CSE) 

BUILD_SDB 

(C9S, NMASC_ENT_MOD, M9S_ENT, CSE) 


=3 
PST 


2V 
STAMSE 


PROMPT_STRINGS 
(CSE, 


MMIMIPOPONOPononononononons: 


SSELEARRAN SS SSVSARANISSHISAF 


DAT, ° (DESTINATION name, or KNOWN): ° 


ad X.2 we 
v04-000 Prom Vv 
43 39 F 
44 40 : 
2 3 
ri 28 
$8 44 ; 
36 te 
51 P 6 t3 $ 
26 P 0 8 
P 8 4 
2¢ P 50 DAT, ' (DESTINATION name, or KNOWN): '‘, 
2? 4 8 2) DST, ° DESTINATION (1-16 characters): '‘, 
57 P 0 2 CT™M, ‘Counter timer (1-65535 second dq *, 
33 4 8 23 MC1, ‘Maximum circuits (1-655 3): ve 
60 P 0 2$ ACC, ‘Account name (1-39 characters): ', 
61 P 025 CMK, ‘Call mask (1-32 hex digits): ‘, 
¢ P 0258 CVL, ‘Call value (1-32 hex digits): ', 
6 P 59 i! FIL, ‘File (filename.typ): °, 
P 0260 GRP, ‘Group name (1-16 characters): ‘, 
P 0261 3 NOD, ‘Node name (node-name, address): '‘, 
P 0 $¢ UM, ‘Number (1-16 characters): . 
P 026 OBJ, ‘Object (name or number): ‘, 
P 0264 PSW, ‘Password (1-39 charocters?: w 
P 026 PRI, ‘Priority (0-255): ', 
P 026 SAD, 'Subaddress range (Range) . 
P 0 STA, ‘State (ON, OFF): ‘, 
P 8 USR, ‘User name (1-16 characters): ', 
0 
0 
0 
0 
0 
0 
0 
0 
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pt strings ° 12-8 08-13be 04:03:40 NCP.SRC NEPSTAMSE b500% a (sf 
} ZSBTTL ‘Prompt strings’ 
1! 
! Build prompt strings 
1 
! BIND 
: +s hl ht 
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5 
6 
67 
68 
69 
70 
P 0271 
P 027 
P 027 
P 0274 rn 
. ? O37, * DESTINATION (1-16 characters): '‘, 
P 027 ALL, ‘ALL X.25 server parameters tt, Wi *, 
4 A ALL2, ‘ALL X.25 server destination parameters (Y, N): ', 
P 0280 CT™M, ‘Counter timer (¥, Ms °, 
4 81 MCI, ‘Maximum circuits cy, Sa *, 
p { ACC, ‘Account name cv. Ws *, 
P 4 CMK, ‘Call mask CV, Ws °, 
P 5 CVL, ‘Call value Vv. Wa *,. 
p FIL, ‘File (Y, ND: ', 

91 P GRP, ‘Group name (¥, Ws °, 

9 P 0288 NOD. "Node name (Yi ND: °S | 

9 ? +4 . ‘Number C¥, Ws °, 

94 Pe OBJ, ‘Object (Y, ND): °, 

95 P 0291 PSW, “pagsuord ‘¥, Ge *, 

38 P 4 PRI, ‘Priority cv, Me *, 

9 P 029 SAD, ‘Subaddress range (Y, N): °, 

98 P 0294 STA, ‘State (Y, N): °, 

99 P 0295 USR, ‘User name (Y, Nw): °, 
; 
| 
} 


13 
Voe-000, = Prompt strings sos 9 i ep-1986 $2:8:96 ENCE sRCINERSTAMSE = 32/4 oak 
; 300 0296 1 ; 


2S 


z> OO oe eS Oe Oe FS OS FS HS 6S HEHE ES FS ESS FSFE HE ES FETS TS HS TS FESR SCR ERTS 


on 
- Oo 
~ 
© 
o 
cs 
| a 
| 
| 
| 
NS 
wes 
now 
m/ 
om 
* « 
ww 
>uw j 
w= | 
me 
mw 
aa 
nv 
Zz 
—nm 
@Qw 
a 
wn 
- 
‘a 
KU 
<2 
>w 
oo 
ue 
mca 
ow 
—™N 
oOo 
ww 
coco aca 
oon a wus 
oe —~ o> 
es - 2 +. ore 
aa w a ~ Pusu 
moo @® we w tnwn 
nn — w” @ie 
‘t+ 2 w = AMANO 
zo @e ” ‘ ton oO . oe 
-—- [. 4 —_ Oo ww w 
4 @o N "rm hUwmM 
w a i =<ee =z &£ = 
” _ > ee ‘ i 4 
P> 4 a eon —+ J J 
C4 w 4 wer o @ @®@ 
a - o MLY - -—- 
oa = sy > >- > 
~ Q 8 aemces emt *ht +t 
o vo w” aw Oo 1 
hod o 2 OUMGo Oo 
ww TACHA 
na ww o a a a 
oe " w FOr Cru 
~ Cc oa ” 2 see MZwMZN“!S® 
ae € = ares 
eo o - i ooo nonnoun 
~~ a °o — cms 
a @ MMU 
w - ca ARAMMNMAO 
YY & pad ooo ZEVVvw 
[; <n od = w”  lLantLanl eeeoueuesn 
<x c we ‘ Vou adaibabuhabal 
oc « c o uuu @Q2naoaoaoam 
ce a A >>> | alana aunt eel ome anel 
—_ wy a. >See > 
“oOo a we VY oo #0 #0 Ori we WI we 
~~ @ c z mun eee s 
«e ~ C-) ~ ano VV9V9UVNUO9 
aw vw I Zow PPA AA Fo KH 
~ ©® .s) w ‘+t C€F8.40ga0a0a00a 
2c a w — Ree ZOVVVVUU 
—— a 4 AOnONn 9 ZZZZZzZ 
30° e @ 
va ”y 2a 
o _) ‘'<« a 
=> = - $ < 
os — 
-- @ z« 8 
ec - oO —_ 
© ee —ememe GSO “ oo 
3? Ce el eek ol el el eek cee ce cl el ee oe oe eh ol el el 
@ 
BD DOK OKOMTNOR-DIOK—VUMTNO 
NY AOCOOOCOCOCOCOCOCCS eK eK KKK — 
*@ Ll) poll pl pl 
xa COOOCCOOCOCOCOCOCOOOOoOOoOoOoOoOO 


Nm oo UM TNOr 


POVEPVESVES VES VES ESET UES NESE VET UET DEL D ID PD PDP PDD 


NCPSTAMSE 
v04-000 


rver Module Par 18-43, -1984 01: AX-11 Bliss-32 V4.0-74 
“SERVER and X SSSERVER Module Parameters 14- 300-1 3be 9) 03 $8 NCP.SRCINCP BSTAMSE B30e4 


vv 


vv 


vv 


vv 


COOCCOCOCOCOCOOCOOOOOooCoOO 


at et et et et et ee ksh 
DONAVEWN OO OONAUE WN ("OO ODNOULSW 


WAWAA 


"SET X25-SERVER and X29-SERVER Module Parameters‘ 
SET/DEFINE MODULE X25-SERVER parameter states 


ST_MSE, 
(ST_MS_ COMMON) ) 


a ~~ 


fpas _EOS, TPAS_EXIT, ACTSVRB_UTILITY, , , SDBS$G_MSE), 


SET/DEFINE MODULE X29-SERVER parameter states 
STM 
(ST wit COMMON) ) 


( 
( 
); 
( 
(fPAS_E0S, TPAS_EXIT, ACTSVRB_UTILITY, , , SDBSG_M9S), 
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NCPSTAMSE X%.25 Server Module Parsin 16-Sep-1984 01:03: AX=-11 Bliss-32 V4.0-742 Page 12 NCP 
¥042000 SET roe SERVER and X29-SERVER Module Parameters 137808 - 1 3b 9:03:86 ENCP.SRC NCPSTAMSE .B32;1 . (8) v04 
1 0 43,1! 3 
s i 44 1! Share common states and data structures for X25-Server and X29-Server ; 
; ¢ 45 1! X25-Server was here first and the naming convention was not changed to : 
3 a re ! reflect the shared nature of the states. : 
; 2 P 8 48 1 SSTATE (ST_MS_ COMMON, : 
; 356 P 0349 1 (TPAS_EOS, ST_MSE_PMT_DAT), 3 
; 357 P 0350 1 (TPAS-LAMBDA, ~ST_ASE_BAT) ; 
3 28 51 1 ); 3 
s 9 26 1 5 
:; 360 0355 1! 3 
: 361 Bee 1! Determine which x25 server sub-database we are talking about ; 
; oe 0355 1! (due to grouping restrictions, the command must not mix ; 
: 36 0356 1! sub-database parameters). The sub-database may be either ; 
> 364 0357 1! x25 server or destination parameters. ; 
> 365 0358 1! ; 
; 366 0359 1 3 
: 367 P 0360 1 SSTATE (ST_MSE_PMT_DAT, . 
3 $05 8303 : (TPAS_LAMBDA,, ACTSPRMPT,,, PMT$G_MSE_DAT)); : 
; 370 P $363 1 SSTATE (ST_MSE_DAT ' Determine whether DESTINATION parameters : 
: 371 P 0364 1 ("DESTINATION’, ST_MSE_DAT_DST), : 
; 37¢ P 0365 1 (*KNOWN', ST“MSE_DAT_KWN) , ; 
; af 0366 1 (TPAS_LAMBDA) ); ! Else, assume SERVER-wide : 
s 74 0367 1 ° 
3; 375 0368 1! : 
; 376 0369 1! Prompt for normal server parameters . 
» ore 0370 1! 
; 378 0371 1 
; 379 Pp ba56 1 SSTATE ( 
; 380 P0373 1 (fPA$_EOS), ! Start prompt ing if EOS 
s $5) bare : (TPAS_LAMBDA,ST_MSE_PRC)); ! Else, try parsing parameters 
: 83 P 0376 1 PROMPT_STATES 
; 384 P 0377 1 (MSE, 
s 3a P0378 1 
; 386 tT4 1 CT™™, MCI, STA) 
3 He 0380 1 
; 388 P 0381 1 $STATE ( 
; 389 0382 1 (TPAS_LAMBDA, ST_MSE_DOIT)); 
; 390 03835 (1 
: $3) Bane 1! 
3 + 385 1! Prompt for destination parameters 
; a6 1! 
: 394 oe 
; 395 P 0388 1 SSTATE (ST_MSE_DAT_DST, | 
; 7 $534 1 (TPAS_LAMBDA)); 
; 397 90 1 
3 98 P 0391 1 COMMAND _PROMPT 
: 44 ‘ 3 ! (MSE, DST, NCPS_INVKEY, 
3 $3) Be ' ((SE_DEST_NAME),, ACTSSAVPRM, QUALPRESENT, NCPSGL_QUALPRS, PBKSG_MSE_DST)); 
3 408 P 336 1 S$STATE (ST_MSE_PMT_DST, | 
: 404 P 0397 1 (TPAS_EDS) ! Start prompt ing if EOS 
; ret * ' (TPAS~LAMBDA,ST_MSE_PRC)); ! Else, try parsing parameters 
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: 419 411 1. 
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; 4 é P 0414 es oe , ST_MSE_PMT_DST, ACTSSAVPRM,,, PBKSG_MSE_KDS), 
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3 6 § 417 1! 

3; 4 418 1! Dispatch States 

: 628 419 1: 

: 429 0420 1 

: 430 P 0401 1 SSTATE (ST_MSE_PRC, 

> 431 P 04 é 1 

: 4 : P 0423 1 ((SE_ALL), ST_MSE_DOIT), 
RE P 0424 1 

: 4 P0405 1 DISPATCH_STATES 

: 435 P 0426 1 (MSE, 

3 6 P 04 7 1 

: 43 P 0408 1 ACC, ‘ACCOUNT, 

: 438 P 0429 1 CAL, ° 

: 439 P0430 1 CTM, + COUN NTER' 

: 440 P0431 1 DST, *DESTINATION* 
+ 441 Pp O43¢ 1 FIL, ‘FILE’, 

: 44 P 0433 1 GRP. + GROUP , 

: bh P 0434 1 KWN, ‘KNOWN’. 

> bbe P0435 1 MCI, "MAXIMUM', 

+ 445 P 0436 1 NOD, 'NODE' 

: 446 P 0437 1 NUM, NUMBER’ . 

> 447 P0438 1 OBJ, ‘OBJECT 

: 448 P0439 1 PSW, PASSWORD 

: 449 P0440 1 PRI, ‘PRIORITY 

; P 1 SAD, ; SUBADDRESSES', 
> 45 P 1 STA, ‘STATE’, 

; Pp 1 USR, “USER', 

3 ; ) 

: 1 , (TPAS_EOS, ST_MSE_DOIT) 
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3628 1 SSTATE (SE_MSE_KWN, 
0457 1 
0458 1 KEYWORD_STATE 
rt 1 (MSE, 
460 1 
0461 1 KDS, ‘DESTINATIONS’, 
Bees 1 
0465 1 »); 
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0465 1! 
466 1! Dispatch on CALL keyword 
0467 1! 
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P 4 14 : SSTATE (ST_MSE_PRC_CAL, 
1 DISPATCH_STATES 
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475 1 CVL, ‘VALUE’, 
P 0476 1 
0477 1 »); 
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0479 1! 
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P 0484 ! 
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; 581 67 1! H 
; § 568 1! Share common states and data structures for X25-Server and X29-Server ; 
; § 1} X25-Server was here first and the naming convention was not changed to : 
; ¢ 2f9 ! reflect the shared nature of the states. : 
3 Pp 276 1 SSTATE (ST gs COMMON, 3 
: P 0575 (1 (TPAS_EOS, ST_CSE_PMT_DAT), . 
; 5 P 374 1 (TPAS-LAMBDA, ~ST_CSE_DAT) 3 
: 9 75 (1 $ 3 
; 590 278 1 3 
; $91 0577 1! 3 
; 238 2f8 1! Determine which x25 server sub-database we are talking about 3 
; 59 579 1! (due to grouping restrictions, the command must not mix ; 
; 594 580 1! sub-database parameters). The sub-database may be either 3 
> 595 0581 1! x25 server or destination parameters. 3 
; 298 bees 7% 3 
; 298 Fe Saez i SSTATE (ST_CSE_PMT_DAT 
; 239 0385 1 (TPAS_LAMBDA,, ACTSPRMPT,,, PMT$G_CSE_DAT)); ; 
; 601 P 0587 1 $STATE (ST_CSE_DAT ! Determine whether DESTINATION parameters : 
; 60 Pp 0588 1 ("DESTINATION', ST_CSE_DAT_DST), ; 
; 60 P 0589 1 ("KNOWN' , STICSE-DAT_KWN) , ; 
; 604 0590 1 (TPAS_LAMBDA) ); ! Else, assume SERVER-wide F 
; 605 0591 «1 ‘ 
; 606 0235 1! : 
; 607 0595 1! Prompt for normal server parameters 3 
; 608 0594 1! 3 
; 609 0595 (1 3 
; 610 P 9298 1 SSTATE ( : 
3; 611 P0597 1 (TPAS_EOS), ! Start prompting if EOS ; 
3 els F434 : (TPAS_LAMBDA,ST_CSE_PRC)); ! Else, try parsing parameters : 
: 614 P 0600 1 QUERY_STATES ; 
> 615 P 0601 1 (CSE, 3 
; 616 P 0602 1 3 
; 617 0603 1 ALL, CTM, FIL, MCI, STA) 3 
; 618 0604 1 3 
; 619 P 0605 1 $STATE ( 3 
: 620 0606 1 (TPAS_LAMBDA, ST_CSE_DOIT)); : 
: 621 0607 1 3 
; 6 § 0608 1! $ 
; ° Z set ' } Prompt for destination parameters : 
: 63s P Osi} 1 SSTATE (ST_CSE_DAT_DST : 
: 627 $018 1 (TPAS_LAMBDA)); : 
; 628 0614 1 : 
3; 629 P 0615 1 COMMAND _PROMPT : 
; ? : 4 ol6 ' (CSE, DST, NCPS_INVKEY, : 
g os 18 } ((SE_DEST_NAME),, ACTSSAVPRM,,, PBK$G_CSE_DST)); 
: ro P 0620 1 S$STATE (ST_CSE_PMT_DST, 
; 635 P 0621 1 (TPAS_EOS) ' Start prompting if EOS 
: $36 § ' (TPAS-LAMBDA,ST_CSE_PRC)); ! Else, try parsing parameters 
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: 630 ! } Dispatch on KNOWN keyword during prompting 
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; 656 64 1 ds 
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; 749 730 1 
; 750 731 1! 
» Fs 7 ¢ 1! Subexpression states 
ae ¢ 7 1! 
3; @ 734«1 
; 754 P 0735 (1 SUB_EXPRESSIONS 
s 95 P 07 $ 1 (CSE, 
3 £28 P 07 1 
. ie P 0738 1 ALL, TPAS_EOS, 
: 758 P0739 1 
; 759 P 0740 1 CTM, TPAS_LAMBDA, 
: 760 P ore) 1 MCi, TPAS_LAMBDA, 
: 761 P reg 1 NOD, TPAS$_LAMBDA, 
; 76 P0743 1 USR, TPAS-LAMBDA, 
; 76 P0744 1 PSW, TPAS_LAMBDA, 
; 764 P 0745 1 ACC, TPAS_LAMBDA, 
: 765 P preg 1 J, TPAS_LAMBDA, 
3; 766 P 074 1 PRI, TPAS_LAMBDA, 
s 767 P 0748 1 CMK, TPAS$_LAMBDA, 
; 768 P 0749 1 e 
3; 769 P0750 1 GRP, TPA$_LAMBDA, 
s 770 P 0751 1 NUM, TPAS_LAMBDA, 
s 771 P beg 1 SAD, TPAS— “LAMBDA, 
ae es P0753 1 
5 27 P 0754 (1 FIL, TPAS_LAMBDA, 
: 776 P 0755 (1 STA, TPAS— LAMBDA, 
: 775 0756 1 ) 
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